local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 2
	IColumn{var_Columns:Add("Duration")}:[Def,exCellValueToItemBarProperty] := 258
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20100920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:AllowLinkBars := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("M1")
	var_Items:AddBar(h1,"Milestone",SToD("20100929"),SToD("20100929"),nil,nil)
	var_Items:[ItemBar,h1,"",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)) ))
RETURN NIL

local var_Chart as IChart
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 543
	IColumn{var_Columns:Add("Duration")}:[Def,exCellValueToItemBarProperty] := 258
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%3",nil)
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:ApplyTo := exFormatToItems
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("%3 = 0",nil)
	var_ConditionalFormat1:ForeColor := RGB(196,196,196)
	var_ConditionalFormat1:ApplyTo := 0x3 | 
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20100920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("M1")
	var_Items:AddBar(h1,"Milestone",SToD("20100927"),SToD("20100927"),nil,nil)
	var_Items:[ItemBar,h1,"",exBarKeepWorkingCount] := true
	h2 := var_Items:AddItem("T1")
	var_Items:AddBar(h2,"Task",SToD("20100927"),SToD("20100927"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarEndInclusive] := SToD("20100927")
	var_Items:[ItemBar,h2,"",exBarKeepWorkingCount] := true
	var_Items:AddLink("L1",h1,"",h2,"")
	h3 := var_Items:AddItem("T2")
	var_Items:AddBar(h3,"Task",SToD("20100927"),SToD("20100927"),nil,nil)
	var_Items:[ItemBar,h3,"",exBarEndInclusive] := SToD("20100927")
	var_Items:[ItemBar,h3,"",exBarKeepWorkingCount] := true
	var_Items:AddLink("L2",h1,"",h3,"")
	var_Items:[Link,"L2",exLinkPDMWorkingDelay] := 5
	h4 := var_Items:AddItem("M3")
	var_Items:AddBar(h4,"Milestone",SToD("20100927"),SToD("20100927"),nil,nil)
	var_Items:[ItemBar,h4,"",exBarKeepWorkingCount] := false
	var_Items:AddLink("L3",h1,"",h4,"")
	var_Items:[Link,"L3",exLinkPDMWorkingDelay] := 5
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940803")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
	var_Chart:FirstWeekDay := exMonday
	var_Chart:OverviewVisible := exOverviewShowAllVisible
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 543
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:ShowEmptyBars := 0
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20060921"),SToD("20060921"),nil,nil)
	var_Items:[ItemBar,h,"",exBarEndInclusive] := var_Items:[ItemBar,h,"",exBarStart]
	var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20060921"),SToD("20060921"),nil,nil)
	var_Items:[ItemBar,h,"",exBarEndInclusive] := SToD("20060925")
	var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL

METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
	// BarResizing event - Occurs when a bar is moving or resizing.
	oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:HeaderHeight := 36
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	var_Column := IColumn{var_Columns:Add("End")}
		var_Column:HTMLCaption := "<b>End</b><br>Inclusive"
		var_Column:[Def,exCellValueToItemBarProperty] := 543
		var_Column:Editor:EditType := DateType
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 2
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add(AsString(1),nil)
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:ApplyTo := 0x2 | 
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060923"),nil,nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20060921"),SToD("20060926"),nil,nil)
	var_Items:AddLink("link",h1,"",h2,"")
	var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:ShowFocusRect := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Format")}
		var_Column:FormatColumn := "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
		var_Column:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(10)
	var_Items:AddItem(-8)
oDCOCX_Exontrol1:EndUpdate()

local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:[CellValue,h,1] := "SubItem 1.1"
	var_Items:[CellValue,h,2] := "SubItem 1.2"
	OutputDebugString(String2Psz( AsString(var_Items:[CellValue,h,1]) ))

IColumn{oDCOCX_Exontrol1:Columns:Add("Now")}:ComputedField := "date(``)"
oDCOCX_Exontrol1:Items:AddItem("")

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	OutputDebugString(String2Psz( "Start: " ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarStart]) ))
	OutputDebugString(String2Psz( "End: " ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,Item,Key,exBarEnd]) ))
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20091231")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Bar := var_Chart:Bars:[Item,"Task"]
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exHour
	var_Chart:ResizeUnitScale := exMinute
	var_Chart:ResizeUnitCount := 30
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:DrawGridLines := exAllLines
	var_Chart:[Level,1]:DrawGridLines := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Task")
	var_Items:AddItem("Task")
	var_Items:AddItem("Task")
	var_Items:AddItem("Task")
	var_Items:AddItem("Task")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20021230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:UnitScale := exHour
	var_Chart:DrawGridLines := exAllLines
	var_Chart:[Level,0]:Alignment := exHOutside | CenterAlignment
oDCOCX_Exontrol1:EndUpdate()

oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 0
oDCOCX_Exontrol1:Chart:ToolTip := ""

METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
	// CreateBar event - Fired when the user creates a new bar.
	local var_Items as IItems
	local k as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		k := var_Items:[ItemBar,Item,"",exBarsCount]
		var_Items:AddBar(Item,"Order",DateStart,DateEnd,k,"your text")
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,Item,"",exBarsCount]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarManual
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Chart:Bars:Copy("Task","Order")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(1)
	var_Items:AddItem(2)
	var_Items:AddItem(3)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010101"),SToD("20010106"),"A",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010107"),"B",nil)
	var_Items:[ItemBar,0,"<*>",exBarMove] := 1
	var_Items:[ItemBar,0,"<A*>",exBarMove] := 1
	var_Items:[ItemBar,0,"<B*>",exBarMove] := 1

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010101"),SToD("20010106"),"A",nil)
	var_Items:[ItemBar,h,"A",exBarMove] := 1

local var_Chart as IChart
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
	var_Note := var_Notes:Add("1",oDCOCX_Exontrol1:Items:[ItemByIndex,1],"1","<img>2</img>")
		var_Note:[PartShadow,exNoteEnd] := false
		var_Note:[PartBorderSize,exNoteEnd] := 0
		var_Note:ClearPartBackColor(exNoteEnd)
		var_Note:[PartCanMove,exNoteEnd] := true
		var_Note:RelativePosition := 0.5
		var_Note:[PartVOffset,exNoteEnd] := -36
	var_Notes:ClipTo := exNotesClipToItems
oDCOCX_Exontrol1:EndUpdate()

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar:OverlaidGroup := "NewTask"
	var_Bar1 := var_Chart:Bars:Copy("Task","NewTask")
		var_Bar1:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar1:OverlaidGroup := "Task"
		var_Bar1:Color := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1","A1")
	var_Items:AddBar(h,"NewTask",SToD("20010103"),SToD("20010105"),"A2","A2")
	var_Items:AddBar(h,"NewTask",SToD("20010104"),SToD("20010107"),"A3","A3")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A4","A4")
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseDown(Button,Shift,X,Y) CLASS MainDialog
	// MouseDown event - Occurs when the user presses a mouse button.
	local item,key as USUAL
	item := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,column,hit]
	key := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	OutputDebugString(String2Psz( "Item:" ))
	OutputDebugString(String2Psz( AsString(item) ))
	OutputDebugString(String2Psz( "Key:" ))
	OutputDebugString(String2Psz( AsString(key) ))
	OutputDebugString(String2Psz( "CellValue(i,0):" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellValue,item,0]) ))
	oDCOCX_Exontrol1:Items:[ItemBar,item,key,exBarColor] := 255
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001229")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"XP:Button 3 12")
	var_Appearance:Add(2,"XP:Button 3 11")
	var_Appearance:Add(3,"XP:Button 3 10")
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(0,0,1)
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 64
	var_Chart:HistogramVisible := true
	var_Chart:HistogramHeight := 64
	var_Chart:OverviewHeight := 48
	var_Chart:OverviewVisible := exOverviewShowAll
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Level,var_Level1 as ILevel

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Level := var_Chart:[Level,0]
		var_Level:Label := 4096
		var_Level:Alignment := exHOutside | CenterAlignment
	var_Level1 := var_Chart:[Level,1]
		var_Level1:Label := "<%hh%>"
		var_Level1:Count := 6
	var_Chart:UnitWidth := 26
	var_Chart:[PaneWidth,false] := 0
	var_Chart:NonworkingHours := 15728895
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingHours := false

local var_Chart as IChart
local var_Level,var_Level1 as ILevel

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Level := var_Chart:[Level,0]
		var_Level:Label := 4096
		var_Level:Alignment := exHOutside | CenterAlignment
	var_Level1 := var_Chart:[Level,1]
		var_Level1:Label := "<%hh%>"
		var_Level1:Count := 6
		var_Level1:[ReplaceLabel,"08"] := "<b>8</b> <font ;6>am"
		var_Level1:[ReplaceLabel,"14"] := "<b>8</b> <font ;6>pm"
	var_Chart:UnitWidth := 26
	var_Chart:[PaneWidth,false] := 0
	var_Chart:NonworkingHours := 15728895
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingHours := false

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Indent := 13
oDCOCX_Exontrol1:HasButtons := exWPlus
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20101225")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:ColumnsFormatLevel := "0"
	var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
	var_Chart:SelForeColor := oDCOCX_Exontrol1:SelForeColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root")
	var_Items:AddBar(var_Items:InsertItem(h,nil,"Child 1"),"Task",SToD("20110102"),SToD("20110105"),nil,nil)
	var_Items:AddBar(var_Items:InsertItem(h,nil,"Child 2"),"Task",SToD("20110104"),SToD("20110107"),nil,nil)
	var_Items:AddBar(var_Items:InsertItem(h,nil,"Child 3"),"Task",SToD("20110107"),SToD("20110108"),nil,nil)
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
	var_Column:Alignment := RightAlignment
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:ColumnsFormatLevel := "|,1:52"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
	var_Column:Alignment := CenterAlignment
	var_Column:[Def,exCellForeColor] := 255
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:ColumnsFormatLevel := "1:52,\" + CHR(34) + "\" + CHR(34) + "[bg=255]:2"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add(AsString(1),nil)
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:ApplyTo := 0x1 | 
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local var_StdFont as stdFont

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1"
	// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
	var_Chart:ColumnsFont := oDCOCX_Exontrol1:Font
	var_StdFont := var_Chart:ColumnsFont
		var_StdFont:Size := 12
		var_StdFont:Name := "Tahoma"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1[bg=255]:52"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Key")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:Visible := false
	var_Column:[Def,exCellBackColor] := 15790320
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001230")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1:52"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Split",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Progress",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}
	var_Column:[Def,exCellValueToItemBarProperty] := 1
	var_Column:Visible := false
	var_Column:Alignment := LeftAlignment
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("End")}
	var_Column1:[Def,exCellValueToItemBarProperty] := 2
	var_Column1:Visible := false
	var_Column1:Alignment := RightAlignment
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1:52,|,2:52"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010108"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 48
	var_Chart:ColumnsFormatLevel := "1"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010108"),nil,nil)

local var_Editor as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:[Option,exEditAllowContextMenu] := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(10)
	var_Items:AddItem(20)

local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"DDList 1",nil)
	var_Editor:AddItem(2,"DDList 2",nil)
	var_Editor:AddItem(3,"DDList 3",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
	var_Editor1:EditType := DropDownType
	var_Editor1:AddItem(1,"DDType 1",nil)
	var_Editor1:AddItem(2,"DDType 2",nil)
	var_Editor1:AddItem(3,"DDType 3",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,:AddItem(1),1] := oDCOCX_Exontrol1:Columns:[Item,1]:Editor:[FindItem,1]
	var_Items:[CellValue,:AddItem(2),1] := oDCOCX_Exontrol1:Columns:[Item,1]:Editor:[FindItem,2]

local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"First item",nil)
	var_Editor:AddItem(2,"Second item",nil)
	var_Editor:AddItem(3,"Third item",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
	var_Editor1:EditType := DropDownType
	var_Editor1:AddItem(1,"First item",nil)
	var_Editor1:AddItem(2,"Second item",nil)
	var_Editor1:AddItem(3,"Third item",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem(1),1] := "Any"
	var_Items:[CellValue,var_Items:AddItem(2),1] := "Any"

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(2,"CP:1 -2 -2 2 2")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:SelBarColor := 0x2ff0000
	var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
	var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
	var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
	var_Items:[ItemBar,h,"A",exBarSelected] := true
	var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(2,"CP:1 -2 -2 2 2")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:SelBarColor := 0x2000000
	var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
	var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
	var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
	var_Items:[ItemBar,h,"A",exBarSelected] := true
	var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZBiOEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6rYzuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2TxxgGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4F4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA==")
	var_Appearance:Add(2,"CP:1 -2 -2 2 2")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:SelBarColor := 0x2000000
	var_Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
	var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
	var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
	var_Items:[ItemBar,h,"A",exBarSelected] := true
	var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940803")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exDay
	var_Chart:FirstWeekDay := exMonday
	var_Chart:OverviewVisible := exOverviewShowAllVisible
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:NonworkingDays := 0
	var_Chart:LinksWidth := 2
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010106"),SToD("20010108"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010110"),SToD("20010112"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010114"),SToD("20010116"),"K4",nil)
	var_Items:AddLink("L3",h3,"K3",h4,"K4")
	var_Items:[Link,"<L*>",exLinkShowDir] := false

METHOD OCX_Exontrol1Click() CLASS MainDialog
	// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
	local var_Chart as IChart
	var_Chart := oDCOCX_Exontrol1:Chart
		var_Chart:MarkNowColor := RGB(255,0,0)
		var_Chart:MarkNow := var_Chart:[DateFromPoint,-1,-1]
RETURN NIL

local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20120313")
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:MarkNowColor := RGB(0,0,0)
	var_Chart:MarkNowWidth := 3
	var_Chart:UnitWidth := 32
	var_Chart:ResizeUnitScale := exHour

local var_Chart as IChart
local var_Level as ILevel

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20120313")
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:[Level,0]:Label := 1048576
	var_Level := var_Chart:[Level,1]
		var_Level:Label := "<%ss%>"
		var_Level:Count := 15
	var_Chart:MarkNowColor := RGB(255,0,0)
	var_Chart:MarkNowWidth := 3
	var_Chart:MarkNow := SToD("20120313 00:03:20")

local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:[Level,0]:Label := 1048576
	var_Level := var_Chart:[Level,1]
		var_Level:Label := "<%ss%>"
		var_Level:Count := 15
	var_Chart:MarkNowColor := RGB(0,0,255)
	var_Chart:MarkNowWidth := 3
	var_Chart:MarkNowDelay := 0.00069444
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080101"),SToD("20180101"),nil,nil)

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4,h5 as USUAL

oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:NonworkingDays := 0
	var_Chart:LinksWidth := 2
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddItem("")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddItem("")
	var_Items:AddBar(h2,"Task",SToD("20010106"),SToD("20010108"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddItem("")
	var_Items:AddBar(h3,"Task",SToD("20010112"),SToD("20010114"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:[Link,"L2",exLinkShowRound] := -1
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010118"),SToD("20010120"),"K4",nil)
	var_Items:AddLink("L3",h3,"K3",h4,"K4")
	var_Items:[Link,"L3",exLinkShowRound] := 1
	var_Items:AddItem("")
	h5 := var_Items:AddItem("Task 5")
	var_Items:AddBar(h5,"Task",SToD("20010122"),SToD("20010124"),"K5",nil)
	var_Items:AddLink("L4",h4,"K4",h5,"K5")
	var_Items:[Link,"L4",exLinkShowRound] := 2

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:NonworkingDays := 0
	var_Chart:LinksStyle := exLinkSolid
	var_Chart:LinksWidth := 2
	var_Chart:LinksColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010106"),SToD("20010108"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010110"),SToD("20010112"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:NonworkingDays := 0
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010106"),SToD("20010108"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	var_Items:[Link,"L1",exLinkStyle] := 0
	var_Items:[Link,"L1",exLinkWidth] := 2
	var_Items:[Link,"L1",exLinkColor] := 255
	var_Items:[Link,"L1",exLinkShowRound] := 2
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010110"),SToD("20010112"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:[Def,exCellValueToItemBarProperty] := 1
		var_Column:[Def,exCellValueToItemBarKey] := "A"
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:[Def,exCellValueToItemBarProperty] := 2
		var_Column1:[Def,exCellValueToItemBarKey] := "A"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 256
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020104"),SToD("20020108"),"A","A")
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"B","B")
	var_Items:[ItemBar,h,"B",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[ScrollRange,exStartDate] := SToD("20010101")
	var_Chart:[ScrollRange,exEndDate] := SToD("20010101")
	var_Chart:UnitScale := exHour
	var_Chart:NonworkingHours := 12582975
	var_Chart:ShowNonworkingUnits := false
	var_Chart:ShowNonworkingHours := false
	var_Chart:[Level,0]:Alignment := exHOutside | CenterAlignment
	var_Chart:UnitWidth := 18
	var_Chart:[PaneWidth,true] := 294
	var_Chart:ScrollBar := false
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Progress",SToD("20010103"),SToD("20010105"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"P3","P3")
	OutputDebugString(String2Psz( "K*" ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<K*>",exBarsCount]) ))
	OutputDebugString(String2Psz( "K* P*" ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<K* P*>",exBarsCount]) ))

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	OutputDebugString(String2Psz( "All" ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
	OutputDebugString(String2Psz( "A*" ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<A*>",exBarsCount]) ))
	OutputDebugString(String2Psz( "K*" ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<K*>",exBarsCount]) ))

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	var_Items:RemoveBar(0,"<K*>")

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	var_Items:ClearBars(0)

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	var_Items:RemoveBar(0,"<*>")

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	var_Items:[ItemBar,0,"<K*>",exBarColor] := 255

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"A2","A2")
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3","K3")
	var_Items:[ItemBar,0,"<*>",exBarColor] := 255

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001229")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:SelectOnClick := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
	var_Items:[SelectItem,var_Items:FirstVisibleItem] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarIncomingBarsAllDebug]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarIncomingBarsDebug]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarIncomingLinksAllAsString]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarIncomingLinksAsString]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarOutgoingBarsAllDebug]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarOutgoingBarsDebug]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarOutgoingLinksAllAsString]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local b,i as USUAL
	b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
	i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarOutgoingLinksAsString]) ))
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"B","B")
	var_Items:AddLink("L1",h1,"A",h2,"B")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"C","C")
	var_Items:AddLink("L2",h2,"B",h3,"C")
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Task",SToD("20010108"),SToD("20010110"),"D","D")
	var_Items:AddLink("L3",h1,"A",h4,"D")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseDown(Button,Shift,X,Y) CLASS MainDialog
	// MouseDown event - Occurs when the user presses a mouse button.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ItemBar,0,"<*>",exBarSelected] := false
		var_Items:[ItemBar,oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit],oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],exBarSelected] := true
RETURN NIL

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001229")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Padding-Left")}:[Def,exHeaderPaddingLeft] := 18
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Padding-Right")}
	var_Column:[Def,exHeaderPaddingRight] := 18
	var_Column:HeaderAlignment := RightAlignment
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Padding-Left")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:[Def,exCellPaddingLeft] := 18
IColumn{oDCOCX_Exontrol1:Columns:Add("No-Padding")}:[Def,exCellHasCheckBox] := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Empty")}:Position := 0
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("Item A.1"),1] := "Item A.2"
	var_Items:[CellValue,var_Items:AddItem("Item B.1"),1] := "Item B.2"
	var_Items:[CellValue,var_Items:AddItem("Item C.1"),1] := "Item C.2"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	local var_Column as IColumn
	OutputDebugString(String2Psz( "Locked:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[IsItemLocked,Item]) ))
	var_Column := oDCOCX_Exontrol1:Columns:[Item,ColIndex]
		var_Column:Filter := AsString(NewValue)
		var_Column:FilterType := exPattern
	oDCOCX_Exontrol1:ApplyFilter()
RETURN NIL

METHOD OCX_Exontrol1MouseUp(Button,Shift,X,Y) CLASS MainDialog
	// MouseUp event - Occurs when the user releases a mouse button.
	oDCOCX_Exontrol1:Edit(oDCOCX_Exontrol1:Items:[LockedItem,exTop,0])
RETURN NIL

local var_Items as IItems
local h as USUAL
local rs as _Recordset

oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("19940803")
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exTop] := 2
	h := var_Items:[LockedItem,exTop,0]
	var_Items:[CellEditor,h,0]:EditType := EditType
	h := var_Items:[LockedItem,exTop,1]
	var_Items:[ItemHeight,h] := 4
	var_Items:[ItemDivider,h] := 0
	var_Items:[SelectableItem,h] := false

METHOD OCX_Exontrol1Event(EventID) CLASS MainDialog
	// Event event - Notifies the application once the control fires an event.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,-2]) ))
RETURN NIL

local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 543
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:ShowEmptyBars := 1
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060921"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060925"),SToD("20060925"),nil,nil)
	var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
	IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 543
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:ShowEmptyBars := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060921"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060922"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060925"),SToD("20060925"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:[Def,exCellValueToItemBarProperty] := 1
		var_Column:Editor:EditType := DateType
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:[Def,exCellValueToItemBarProperty] := 543
		var_Column1:Editor:EditType := DateType
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
	var_Chart:NonworkingDays := 0
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_InsideZoom as IInsideZoom
local var_InsideZooms as IInsideZooms

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20080101")
	var_Chart:AllowInsideZoom := true
	var_Chart:AllowResizeInsideZoom := false
	var_Chart:InsideZoomOnDblClick := false
	var_Chart:DefaultInsideZoomFormat:BackColorChart := RGB(255,0,255)
	var_InsideZooms := var_Chart:InsideZooms
		var_InsideZooms:SplitBaseLevel := false
		var_InsideZooms:DefaultWidth := 18
		var_InsideZoom := var_InsideZooms:Add(SToD("20080115"))
			var_InsideZoom:AllowInsideFormat := false
			var_InsideZoom:Width := 128
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_InsideZooms as IInsideZooms

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20080101")
	var_Chart:AllowInsideZoom := true
	var_Chart:AllowResizeInsideZoom := false
	var_Chart:InsideZoomOnDblClick := false
	var_Chart:DefaultInsideZoomFormat:BackColorChart := RGB(255,0,0)
	var_InsideZooms := var_Chart:InsideZooms
		var_InsideZooms:SplitBaseLevel := false
		var_InsideZooms:DefaultWidth := 18
		var_InsideZooms:Add(SToD("20080115")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:FirstVisibleDate := SToD("20080101")
	var_Chart:MarkTodayColor := var_Chart:BackColor
	var_Chart:LevelCount := 2
	var_Chart:MarkSelectDateColor := 0x7fff0000
	var_Chart:SelectLevel := 1
	var_Chart:[SelectDate,SToD("20080115")] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:DefaultItemHeight := 36
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Column1")}
		var_Column:Visible := false
		var_Column:Editor:EditType := EditType
	var_Column1 := IColumn{var_Columns:Add("Column2")}
		var_Column1:Visible := false
		var_Column1:Editor:EditType := EditType
	IColumn{var_Columns:Add("Column3")}:Visible := false
	var_Column2 := IColumn{var_Columns:Add("FormatLevel")}
		var_Column2:FormatLevel := "(0/1),2"
		var_Column2:[Def,exCellFormatLevel] := var_Column2:FormatLevel
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Cell 1.1")
	var_Items:[CellValue,h,1] := "Cell 1.2"
	var_Items:[CellValue,h,2] := "Cell 1.3"
	h := var_Items:AddItem("Cell 2.1")
	var_Items:[CellValue,h,1] := "Cell 2.2"
	var_Items:[CellValue,h,2] := "Cell 2.3"
oDCOCX_Exontrol1:EndUpdate()

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidGroup := "OTask"
		var_Bar:OverlaidType := exOverlaidBarsNone
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
	var_Bar1 := var_Chart:Bars:Copy("Task","OTask")
		var_Bar1:OverlaidGroup := "Task"
		var_Bar1:OverlaidType := exOverlaidBarsStrict | exOverlaidBarsCascade
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:AddBar(h,"OTask",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:[ItemBar,h,"A2",exBarColor] := 255
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
	// CreateBar event - Fired when the user creates a new bar.
	oDCOCX_Exontrol1:Items:[ItemBar,Item,"newbar",exBarOverlaidKey] := "Level0"
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:[ItemBar,h,"A1",exBarOverlaidKey] := "Level0"
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:[ItemBar,h,"A3",exBarOverlaidKey] := "Level0"
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:[ItemBar,h,"A2",exBarColor] := 255
	var_Items:[ItemBar,h,"A2",exBarOverlaidKey] := "Level1"
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	var_Items:[ItemBar,h,"A4",exBarColor] := 255
	var_Items:[ItemBar,h,"A4",exBarOverlaidKey] := "Level1"
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStack
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsIntersect
		var_Bar:[Overlaid,exOverlaidBarsIntersect] := "Progress"
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsOffset
		var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Default")
	h := var_Items:AddItem("Overlaid")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"A4",nil)
	h1 := var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	var_Items:[Link,"L1",exLinkText] := "FS"
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:[Link,"L2",exLinkText] := "SS"
	var_Items:[Link,"L2",exLinkStartPos] := 0
	var_Items:[Link,"L2",exLinkEndPos] := 0
	var_Items:[DefSchedulePDM,exPDMScheduleType] := 2
	var_Items:[DefSchedulePDM,exPDMScheduleDate] := SToD("20010108")
	var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	var_Items:[Link,"L1",exLinkText] := "FS"
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:[Link,"L2",exLinkText] := "SS"
	var_Items:[Link,"L2",exLinkStartPos] := 0
	var_Items:[Link,"L2",exLinkEndPos] := 0
	var_Items:[DefSchedulePDM,exPDMScheduleType] := 1
	var_Items:[DefSchedulePDM,exPDMScheduleDate] := SToD("20010108")
	var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:AllowZoomOnFly := exZoomOnFly
	var_Chart:ResizeUnitScale := exHour
	var_Chart:[Label,exHour] := "<font ;5><b><%h%><br><%AM/PM%></b></font>"
	var_Chart:ZoomOnFlyCaption := "<br><c><b><font ;12><%=%C0 + ' / <fgcolor=00FF00>' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b>End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + ' days'%><br><b>Working</b>:<%='<b>' + int(%258) + '</b> days' + (0:=(%258 - int(%258)) ? (' <fgcolor=FF0000><b>' + round(24 * =:0) + '</b> hours') : '') %>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"T1","T1")
	var_Items:AddBar(h,"Task",SToD("20010111"),SToD("20010114"),"T3","T3")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:AllowZoomOnFly := exZoomOnFly
	var_Chart:ResizeUnitScale := exHour
	var_Chart:[Label,exHour] := "<font ;5><b><%h%><br><%AM/PM%></b></font>"
	var_Chart:ZoomOnFlyCaption := ""
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"T1","T1")
	var_Items:AddBar(h,"Task",SToD("20010111"),SToD("20010114"),"T3","T3")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:AllowZoomOnFly := exZoomOnFly
	var_Chart:BackColorZoomOnFly := RGB(240,240,240)
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"T1","T1")
	var_Items:AddBar(h,"Task",SToD("20010111"),SToD("20010114"),"T3","T3")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:AllowZoomOnFly := exZoomOnFlyIncludeSelectedItems | exZoomOnFly
	var_Chart:SelBackColor := RGB(240,240,240)
	var_Chart:SelectOnClick := false
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"T1","T1")
	var_Items:[SelectItem,h] := true
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010111"),SToD("20010114"),"T2","T2")
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"T3","T3")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Chart:AllowZoomOnFly := exZoomOnFlyIncludeNeighborItems | exZoomOnFly
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"T1","T1")
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010111"),SToD("20010114"),"T3","T3")
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"T1","T1")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20001105")
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exWeek
	var_Chart:ResizeUnitScale := exDay
	var_Chart:AllowZoomOnFly := exZoomOnFly
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010117"),"T1","T1")
	var_Items:AddBar(h,"Task",SToD("20010118"),SToD("20010224"),"T3","T3")
	h := var_Items:AddItem(nil)
	var_Items:AddBar(h,"",SToD("20010115"),SToD("20010115"),"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:DrawGridLines := exHLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:AllowLinkBars := false
	var_Chart:ResizeUnitScale := exHour
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A1","A1")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A3","A3")
	var_Items:[ItemBar,h,"A3",exBarColor] := 65280
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A31","A31")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A3","A3")
	var_Items:[ItemBar,h,"A3",exBarColor] := 255
	var_Items:AddBar(var_Items:AddItem(nil),"",SToD("20010110"),SToD("20010110"),nil,"The <b>Key</b> of the bar specifies the Z-Order when overlaying.")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:NonworkingDays := 0
	var_Chart:FirstVisibleDate := SToD("20060917")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsCascade
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060927"),"K1","K1")
	var_Items:AddBar(h1,"Task",SToD("20060923"),SToD("20060924"),"K2","K2")
	var_Items:AddBar(h1,"Task",SToD("20060922"),SToD("20060925"),"K3","K3")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060927"),"T1","T1")
	var_Items:AddBar(h1,"Task",SToD("20060928"),SToD("20060929"),"T2","T2")
	var_Items:AddBar(h1,"Task",SToD("20060930"),SToD("20061003"),"T3","T3")
	var_Items:[ItemBar,0,"<T*>",exBarColor] := 65280
	var_Items:[ItemBar,0,"<K*>",exBarOverlaidKey] := "A"
	var_Items:[ItemBar,0,"<T*>",exBarOverlaidKey] := "B"
oDCOCX_Exontrol1:EndUpdate()

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:Copy("Summary","Aka1")
		var_Bar:StartColor := RGB(255,0,0)
		var_Bar:EndColor := RGB(0,0,255)
	var_Bar1 := var_Chart:Bars:Copy("Summary","Aka2")
		var_Bar1:StartColor := RGB(0,255,0)
		var_Bar1:EndColor := RGB(255,0,255)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item A")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"B1",nil)
	var_Items:[ItemBar,h,"B1",exBarName] := "Aka1"
	h := var_Items:AddItem("Item B")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"B2",nil)
	var_Items:[ItemBar,h,"B2",exBarName] := "Aka2"
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[HTMLPicture,"p1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:[HTMLPicture,"p2"] := "c:\exontrol\images\sun.png"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopySnapShot
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
oDCOCX_Exontrol1:HasLines := exThinLine
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:DefaultItemHeight := 26
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:ShowNonworkingDates := false
	var_Chart:FirstVisibleDate := SToD("20001229")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Color := 0x1000000
		var_Bar:Height := 18
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("<img>p1:32</img>Group 1")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemBold,h] := true
	h1 := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	var_Items:[Link,"L1",exLinkText] := "L1"
	h3 := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:[Link,"L2",exLinkText] := "L2"
	h := var_Items:AddItem("<img>p2:32</img>Group 2")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[ItemBold,h] := true
	var_Items:[ItemDivider,h] := 0
	h1 := var_Items:InsertItem(h,nil,"Task")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems
local h,var_HTMLPicture as USUAL
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"p1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:[HTMLPicture,"p2"] := "c:\exontrol\images\sun.png"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_HTMLPicture := oDCOCX_Exontrol1:[HTMLPicture,"aka1"]
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DefaultItemHeight := 48
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Columns:[Item,0]:[Def,exCellValueFormat] := 1
oDCOCX_Exontrol1:Columns:[Item,0]:FormatColumn := "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
oDCOCX_Exontrol1:Columns:[Item,0]:Width := 112
oDCOCX_Exontrol1:Columns:[Item,1]:[Def,exCellHasCheckBox] := 1
oDCOCX_Exontrol1:Columns:[Item,2]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,3]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,4]:LevelKey := "1"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopyImage
oDCOCX_Exontrol1:SingleSel := false
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:[ItemByIndex,1]
	var_Items:[SelectItem,h] := true
	h := var_Items:[ItemByIndex,2]
	var_Items:[SelectItem,h] := true
	h := var_Items:[ItemByIndex,3]
	var_Items:[SelectItem,h] := true
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[CellValue,h,1] := "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
	var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
	var_Items:[CellValueFormat,h,1] := exHTML
	var_Items:[CellHAlignment,h,1] := CenterAlignment
	var_Items:[ItemDivider,h] := 1
	var_Items:[ItemDividerLineAlignment,h] := DividerTop
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems
local h as USUAL
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Columns:[Item,2]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,3]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,4]:LevelKey := "1"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopyText
oDCOCX_Exontrol1:SingleSel := false
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:[ItemByIndex,1]
	var_Items:[SelectItem,h] := true
	h := var_Items:[ItemByIndex,3]
	var_Items:[SelectItem,h] := true
	h := var_Items:[ItemByIndex,4]
	var_Items:[SelectItem,h] := true
	h := var_Items:[ItemByIndex,5]
	var_Items:[SelectItem,h] := true
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[CellValue,h,0] := "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellHAlignment,h,0] := CenterAlignment
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemDividerLineAlignment,h] := DividerTop
oDCOCX_Exontrol1:EndUpdate()